home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / vol6n19.arc / CTYPE.BAS < prev    next >
BASIC Source File  |  1987-10-31  |  12KB  |  178 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE ctype.COM
  2. 110 OPEN "ctype.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  157 
  6. 150    LINESUM = 0
  7. 155    PRINT ".";
  8. 160    FOR J = 1 TO 8
  9. 170       READ BYTE
  10. 180       CHECKSUM = CHECKSUM + BYTE
  11. 190       LINESUM = LINESUM + BYTE
  12. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  13. 210       PUT #1
  14. 220    NEXT J
  15. 230    READ LINECHECK
  16. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  17. 250 NEXT I
  18. 260 CLOSE
  19. 270 IF CHECKSUM = 121506 THEN PRINT "Successful Completion!" : END
  20. 280 PRINT "COM file is not valid!" : END
  21. 290 DATA    233,    43,     1,    67,    84,    89,    80,    69,   666
  22. 300 DATA     32,    49,    46,    48,    32,    40,    99,    41,   387
  23. 310 DATA     32,    49,    57,    56,    55,    32,    90,   105,   476
  24. 320 DATA    102,   102,    32,    67,   111,   109,   109,   117,   749
  25. 330 DATA    110,   105,    99,    97,   116,   105,   111,   110,   853
  26. 340 DATA    115,    32,    67,   111,    46,    26,    74,   101,   572
  27. 350 DATA    102,   102,    32,    80,   114,   111,   115,   105,   761
  28. 360 DATA    115,   101,    80,    67,    32,    77,    97,   103,   672
  29. 370 DATA     97,   122,   105,   110,   101,    32,    67,   117,   751
  30. 380 DATA    114,   115,   111,   114,    32,    68,   101,   102,   757
  31. 390 DATA    105,   110,   105,   116,   105,   111,   110,    32,   794
  32. 400 DATA     85,   116,   105,   108,   105,   116,   121,     0,   756
  33. 410 DATA     67,    84,    89,    80,    69,    32,    47,     0,   468
  34. 420 DATA     60,    32,    85,   115,   101,    32,    97,   114,   636
  35. 430 DATA    114,   111,   119,    32,   107,   101,   121,   115,   820
  36. 440 DATA     32,   116,   111,    32,   110,    97,   118,   105,   721
  37. 450 DATA    103,    97,   116,   101,    32,   103,   114,   105,   771
  38. 460 DATA    100,    32,    62,     0,     0,    69,    78,    84,   425
  39. 470 DATA     69,    82,    32,    32,    32,    32,    58,    32,   369
  40. 480 DATA     83,   101,   108,   101,    99,   116,    32,    99,   739
  41. 490 DATA    117,   114,   115,   111,   114,    32,    97,   110,   810
  42. 500 DATA    100,    32,   101,   120,   105,   116,     0,    83,   657
  43. 510 DATA     80,    65,    67,    69,    66,    65,    82,    32,   526
  44. 520 DATA     58,    32,    86,   105,   101,   119,    32,    99,   632
  45. 530 DATA    117,   114,   115,   111,   114,    32,   119,   105,   827
  46. 540 DATA    116,   104,    32,   116,   101,   120,   116,     0,   705
  47. 550 DATA     60,    32,    80,   114,   101,   115,   115,    32,   649
  48. 560 DATA     83,    80,    65,    67,    69,    66,    65,    82,   577
  49. 570 DATA     32,   116,   111,    32,   114,   101,   116,   117,   739
  50. 580 DATA    114,   110,    32,    62,     0,     0,    65,    32,   415
  51. 590 DATA    115,   105,   110,   103,   108,   101,    32,   108,   782
  52. 600 DATA    105,   110,   101,    32,   111,   102,    32,   115,   708
  53. 610 DATA     97,   109,   112,   108,   101,    32,   116,   101,   776
  54. 620 DATA    120,   116,     0,    13,    10,    73,   108,   108,   548
  55. 630 DATA    101,   103,    97,   108,    32,   112,    97,   114,   764
  56. 640 DATA     97,   109,   101,   116,   101,   114,   115,    13,   766
  57. 650 DATA     10,    36,     3,     8,     0,    24,     0,     2,    83
  58. 660 DATA     31,     0,     2,     0,     0,     0,   180,    15,   228
  59. 670 DATA    205,    16,   136,    38,    38,     2,   136,    62,   633
  60. 680 DATA     44,     2,   180,     8,   205,    16,   136,    38,   629
  61. 690 DATA     41,     2,   184,    64,     0,   142,   192,   184,   809
  62. 700 DATA      0,    26,   205,    16,    60,    26,   117,    20,   470
  63. 710 DATA    128,   251,     7,   114,    15,   128,   251,     8,   902
  64. 720 DATA    119,    10,   232,    91,     1,   128,   251,     7,   839
  65. 730 DATA    116,    56,   235,    64,   254,    14,    34,     2,   775
  66. 740 DATA    180,    18,   179,    16,   205,    16,   128,   251,   993
  67. 750 DATA     16,   116,    17,    38,   246,     6,   135,     0,   574
  68. 760 DATA      8,   117,     9,   232,    58,     1,    10,   255,   690
  69. 770 DATA    117,    24,   235,    32,   254,    14,    34,     2,   712
  70. 780 DATA     38,   247,     6,    99,     0,    64,     0,   117,   571
  71. 790 DATA     19,   198,     6,    35,     2,    14,   254,    14,   542
  72. 800 DATA     34,     2,   198,     6,    39,     2,     7,   198,   486
  73. 810 DATA      6,    40,     2,   112,    14,     7,   252,   191,   624
  74. 820 DATA    130,     0,   128,   125,   254,     2,   114,    66,   819
  75. 830 DATA    185,    10,     0,   176,    47,   242,   174,   227,  1061
  76. 840 DATA     57,   139,    13,   129,   225,   223,   223,   129,  1138
  77. 850 DATA    233,    65,    65,    58,    46,    35,     2,   115,   619
  78. 860 DATA     29,    58,    14,    35,     2,   115,    23,   134,   410
  79. 870 DATA    233,   160,    35,     2,    42,   193,   254,   200,  1119
  80. 880 DATA     58,   232,   119,    10,   138,   200,   232,   231,  1220
  81. 890 DATA      0,   184,     0,    76,   205,    33,   180,     9,   687
  82. 900 DATA    186,    11,     2,   205,    33,   184,     1,    76,   698
  83. 910 DATA    205,    33,   128,    62,    38,     2,    80,   115,   663
  84. 920 DATA      5,   198,     6,    42,     2,     1,   232,   191,   677
  85. 930 DATA      2,   180,     1,   181,    32,   205,    16,   184,   801
  86. 940 DATA     32,     9,   138,    30,    40,     2,   138,    62,   451
  87. 950 DATA     44,     2,   138,    14,    38,     2,    50,   237,   525
  88. 960 DATA    205,    16,   190,    58,     1,    50,   246,   138,   904
  89. 970 DATA     22,    38,     2,   128,   234,    37,   208,   234,   903
  90. 980 DATA    232,   124,     2,   232,   131,     1,   180,     2,   904
  91. 990 DATA    182,     2,   138,    22,    43,     2,   138,    30,   557
  92. 1000 DATA    39,     2,   190,    96,     1,   232,   103,     2,   665
  93. 1010 DATA   138,    14,    35,     2,   254,   201,   138,   233,  1015
  94. 1020 DATA   254,   205,   235,    97,   180,     0,   205,    22,  1198
  95. 1030 DATA    10,   192,   116,    19,    60,    32,   117,     5,   551
  96. 1040 DATA   232,   168,     0,   235,   239,    60,    13,   117,  1064
  97. 1050 DATA   235,   232,    92,     2,   233,   122,   255,   128,  1299
  98. 1060 DATA   252,    72,   117,    12,    10,   237,   117,     4,   821
  99. 1070 DATA   138,   233,   235,    57,   254,   205,   235,    53,  1410
  100. 1080 DATA   128,   252,    75,   117,    12,   254,   193,    58,  1089
  101. 1090 DATA    14,    35,     2,   117,    40,   138,   205,   235,   786
  102. 1100 DATA    36,   128,   252,    77,   117,    16,    58,   233,   917
  103. 1110 DATA   117,     8,   138,    14,    35,     2,   254,   201,   769
  104. 1120 DATA   235,    19,   254,   201,   235,    15,   128,   252,  1339
  105. 1130 DATA    80,   117,   169,    58,   233,   117,     4,    50,   828
  106. 1140 DATA   237,   235,     2,   254,   197,   232,   218,     0,  1375
  107. 1150 DATA   232,   175,     0,   232,    18,     0,   235,   148,  1040
  108. 1160 DATA    83,   184,    48,    17,   205,    16,   136,    22,   711
  109. 1170 DATA    37,     2,   136,    14,    35,     2,    91,   195,   512
  110. 1180 DATA    81,   128,    62,    34,     2,     2,   117,    16,   442
  111. 1190 DATA   254,   193,    58,    14,    35,     2,   117,     2,   675
  112. 1200 DATA    50,   201,    58,   233,   117,     2,   177,    30,   868
  113. 1210 DATA     6,   184,    64,     0,   142,   192,    38,   139,   765
  114. 1220 DATA    22,    99,     0,    38,   137,    14,    96,     0,   406
  115. 1230 DATA     7,   176,    10,   238,    66,   138,   197,   238,  1070
  116. 1240 DATA    74,   176,    11,   238,    66,   138,   193,   238,  1134
  117. 1250 DATA    89,   195,     0,    81,   232,   217,     1,   190,  1005
  118. 1260 DATA   208,     1,   185,     3,     0,   232,   125,     1,   755
  119. 1270 DATA   180,     2,   254,   206,   205,    16,   136,    22,  1021
  120. 1280 DATA     2,     4,   128,     6,     2,     4,    27,   180,   353
  121. 1290 DATA     0,   205,    22,    10,   192,   116,    21,    60,   626
  122. 1300 DATA    32,   117,   244,   232,   178,     1,   190,   104,  1098
  123. 1310 DATA     1,   185,     4,     0,   232,    86,     1,    89,   598
  124. 1320 DATA   232,    39,     0,   195,   128,   252,    75,   117,  1038
  125. 1330 DATA    18,    58,    22,    43,     2,   116,   216,   254,   729
  126. 1340 DATA   202,   180,     2,   138,    62,    44,     2,   205,   835
  127. 1350 DATA    16,   235,   204,   128,   252,    77,   117,   199,  1228
  128. 1360 DATA    58,    22,     2,     4,   116,   193,   254,   194,   843
  129. 1370 DATA   235,   231,   138,   245,   128,   198,     4,   138,  1317
  130. 1380 DATA    22,    43,     2,   128,   194,     2,   160,    42,   593
  131. 1390 DATA     2,     2,   208,   254,   192,   138,    30,    35,   861
  132. 1400 DATA     2,    42,   217,   254,   203,   246,   227,     2,  1193
  133. 1410 DATA   208,   138,    62,    44,     2,   180,     2,   205,   841
  134. 1420 DATA    16,   195,   180,     2,   138,    62,    44,     2,   639
  135. 1430 DATA   182,     2,   138,    22,    43,     2,   128,   194,   711
  136. 1440 DATA     7,   205,    16,   180,    14,   138,   197,     4,   761
  137. 1450 DATA    65,   205,    16,   180,    14,   160,    35,     2,   677
  138. 1460 DATA    42,   193,     4,    64,   205,    16,   195,     0,   719
  139. 1470 DATA     0,   160,    35,     2,   138,    30,    42,     2,   409
  140. 1480 DATA   254,   195,   246,   227,     5,     3,     0,   139,  1069
  141. 1490 DATA   200,   138,    30,    38,     2,    42,   216,   208,   874
  142. 1500 DATA   235,   136,    30,    43,     2,   180,     2,   182,   810
  143. 1510 DATA     3,   138,    22,    43,     2,   138,    62,    44,   452
  144. 1520 DATA     2,   205,    16,   184,    32,     9,   138,    30,   616
  145. 1530 DATA    40,     2,   205,    16,   139,    14,    35,     2,   453
  146. 1540 DATA   182,     3,   138,    22,    43,     2,     2,    22,   414
  147. 1550 DATA    42,     2,   128,   194,     2,   176,    65,   138,   747
  148. 1560 DATA   216,   180,     2,   205,    16,   180,    14,   138,   951
  149. 1570 DATA   195,   205,    16,     2,    22,    42,     2,   254,   738
  150. 1580 DATA   194,   138,   195,   254,   192,   226,   232,   139,  1570
  151. 1590 DATA    14,    35,     2,   182,     4,   138,    22,    43,   440
  152. 1600 DATA     2,   138,    30,    40,     2,    81,   180,     2,   475
  153. 1610 DATA   205,    16,   184,    32,     9,   138,    14,    42,   640
  154. 1620 DATA     2,   254,   193,    50,   237,   205,    16,   254,  1211
  155. 1630 DATA   198,    89,   226,   233,   139,    14,    35,     2,   936
  156. 1640 DATA   137,    14,   175,     4,   182,     4,   138,    22,   676
  157. 1650 DATA    43,     2,   254,   194,   176,    65,    81,   138,   953
  158. 1660 DATA   216,   180,     2,   205,    16,   138,   195,   180,  1132
  159. 1670 DATA    14,   205,    16,   139,    14,   175,     4,   180,   747
  160. 1680 DATA     2,     2,    22,    42,     2,   254,   194,   205,   723
  161. 1690 DATA    16,   184,   249,    14,   205,    16,   226,   239,  1149
  162. 1700 DATA   255,    14,   175,     4,   138,   195,   254,   192,  1227
  163. 1710 DATA   254,   198,   138,    22,    43,     2,   254,   194,  1105
  164. 1720 DATA    89,   226,   203,   136,    54,    45,     2,   254,  1009
  165. 1730 DATA     6,    45,     2,   190,   104,     1,   185,     4,   537
  166. 1740 DATA     0,   232,     1,     0,   195,   138,    54,    45,   665
  167. 1750 DATA     2,   138,    22,    43,     2,   138,    30,    39,   414
  168. 1760 DATA     2,    81,   232,    10,     0,   254,   198,   138,   915
  169. 1770 DATA    22,    43,     2,    89,   226,   243,   195,   180,  1000
  170. 1780 DATA     2,   138,    62,    44,     2,   205,    16,   172,   641
  171. 1790 DATA    10,   192,   116,    11,   180,     9,   185,     1,   704
  172. 1800 DATA     0,   205,    16,   254,   194,   235,   232,   195,  1331
  173. 1810 DATA   180,     2,    51,   210,   138,    62,    44,     2,   689
  174. 1820 DATA   205,    16,    51,   201,   138,    22,    38,     2,   673
  175. 1830 DATA   254,   202,   138,    54,    37,     2,   138,    62,   887
  176. 1840 DATA    41,     2,   184,     0,     6,   205,    16,   195,   649
  177. 1850 DATA   138,    46,    45,     2,    50,   201,   235,   228,   945
  178.